home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / ps1410.arc / CALU.BAS < prev    next >
BASIC Source File  |  1990-10-31  |  2KB  |  37 lines
  1.     '=========================================================================
  2.     ' Personal Calendar (PC) Program
  3.     '  Copyright (c) 1985-1990, Paul Munoz-Colman.  All Rights Reserved.
  4.     '    Version 14.10
  5.     '     31 Oct 1990
  6.     '    Shareware $25
  7.     '=========================================================================
  8.     '           DOS File CALU.BAS -- Display Shareware Banner
  9.     '  Independently Compiled Subprogram Which Is Linked With CAL1.BAS
  10.     '=========================================================================
  11.     ' $INCLUDE: 'cal1.bi'
  12.     '=========================================================================
  13.     '  Written For IBM PCs & Compatibles Under MS DOS 3.30 on a Northgate 486
  14.     '   Compiled By Microsoft Professional BASIC 7.10, Linker Version 5.10
  15.     '=========================================================================
  16.     '  Note -- Tabs in the source file are in positions 6,11,16,21,26,...
  17.     '=========================================================================
  18.     '  Subprogram List in the Order of Appearance in this File
  19.     '   (compiled WITHOUT error handling--no /E or /X)
  20.     '-------------------------------------------------------------------------
  21.     '    Name                          Purpose
  22.     '    ---------------------------   ---------------------------------------
  23.     '    ValidateUser                Display Shareware Banner
  24.     '=========================================================================
  25.     SUB ValidateUser (WhichLine)
  26.     '=========================================================================
  27.     '    (boilerplate module which replaces registration validation)
  28.     DEFINT A-Z
  29.         SubnumSave = Subnum
  30.         Subnum = 140
  31.     CALL ShowIt(N6, WhichLine + N2, N54, "Shareware $25")
  32.         Subnum = SubnumSave
  33.     END SUB
  34.     '========================================================================
  35.     '========================  END OF CALU.BAS  =============================
  36.     '========================================================================
  37.